home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macWindowMgr.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  3.9 KB  |  126 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class Mac WindowMgr
  3. % 
  4. % In this module you find the programmers interface to the Window
  5. % Manager.It is built on top of the TOOLBOX routines in TOOLBOXWindows.
  6. % The routines put here are those that are not naturally an attribute of
  7. % a window, rather manageing the windows. This class is only intended to
  8. % be instantiated once (and usually as the part of its subclass 
  9. % macProcessMGR)
  10. % When an object of this class is created, all other Toolbox Managers
  11. % are initialized. This should naturally only be done Once.
  12. %
  13. % For a description of the routines see Inside Macintosh.
  14. %
  15. % 890317/Boris Magnusson
  16. % This module contains an internal Simset list of notices to all
  17. % created Windows.
  18. % ---------------------------------------------------------------------------
  19. External class TOOLBOXWindow="::SInterfaces:ToolboxWindow";
  20. External class MACWindow="::SInterfaces:MacWindow";
  21. External class MACRect="::SInterfaces:MacRect";
  22. External class MacPoint="::SInterfaces:MacPoint";
  23. External class MacToolConst="::SInterfaces:MacToolConst";
  24. External class MacUtilities="::SInterfaces:MacUtilities";
  25.  
  26. Simset class MacWindowMgr;
  27. begin
  28.         
  29.     ref(MacUtilities) Util;    ! To access general utilities of Toolbox;
  30.     ref(MacToolConst) TConst;  ! To access CONST:s from Toolintf;
  31.     ref(TOOLBOXWindow) TOOLBOX;! To access Quickdraw & Window traps;
  32.     ref(macWindow) SelectedWindow;! The currently selected W. ;
  33. ! ----------------------------;    
  34.     integer NIL=0;
  35.     
  36.     procedure InitWindows; TOOLBOX.TOOLBOXInitWindows;
  37.  
  38.     procedure RegisterWindow(W); ref(macWindow) W;
  39.     begin
  40.         new WindowNotice(W);
  41.         SelectWindow(W); ! make new Window the selected one ;
  42.     end;
  43.         
  44.     procedure SelectWindow(W);ref(macWindow) W;
  45.     begin
  46.         TOOLBOX.TOOLBOXSelectWindow(W.WindowPtr);
  47.         W.Setport;
  48.         SelectedWindow:-W;
  49.     end --- Select Window --- ;
  50.  
  51.     procedure DisposeWindow(W); ref(MACWindow) W;
  52.     begin
  53.         TOOLBOX.TOOLBOXDisposeWindow(W.WindowPtr);
  54.         ConvertToNotice(W.WindowPtr).out;
  55.     end;
  56.  
  57.     ref(MACWindow) procedure FrontWindow;
  58.         FrontWindow:-ConvertToWindow(TOOLBOX.TOOLBOXFrontWindow);
  59.  
  60.     short integer procedure FindWindow(thePoint,WhichWindow);
  61.         name WhichWindow;
  62.         ref(MACPoint) thePoint;
  63.         ref(MacWindow) WhichWindow;
  64.     begin integer W;
  65.             FindWindow:=TOOLBOX.TOOLBOXFindWindow(thePoint.h,thePoint.v,W);
  66.             WhichWindow:-ConvertToWindow(W)
  67.     end;
  68.     
  69. % Special routine to reach the screen rectangle
  70.  
  71.     external Pascal procedure x="PascalGetScreenRect" is
  72.         procedure PascalGetScreenRect(theRect_top);
  73.             name theRect_top;
  74.             short integer theRect_top;;
  75.             
  76.     procedure GetScreenRect(aRect); ref(MACRect) aRect;
  77.     begin
  78.         PascalGetScreenRect(aRect.Top);
  79.     end;
  80.  
  81. % ---------------------------------------------------------
  82.  
  83. ! -------- Internal Routines --------------- ;
  84.  
  85.     ref(MACWindow) procedure ConvertToWindow(windowptr); integer windowptr;
  86.     begin
  87.         ! search all created windows for one with windowptr 
  88.         ! equal to the param;
  89.         ref(windowNotice) p;
  90.         p:-wq.first;
  91.         while p=/= none and then p.W.Windowptr<>Windowptr do
  92.             p:-p.suc;
  93.         if p=/=none then
  94.             ConvertToWindow:-p.W
  95.         else
  96.         begin ! else not our window ;
  97.             ghostWindow.Windowptr:=windowptr;
  98.             convertToWindow:-ghostWindow;
  99.         end;
  100.     end;
  101.  
  102.     ref(WindowNotice) procedure ConvertToNotice(windowptr); integer windowptr;
  103.     begin
  104.         ! search all created windows for one with windowptr 
  105.         ! equal to the param;
  106.         ref(windowNotice) p;
  107.         p:-wq.first;
  108.         while p=/= none and then p.W.Windowptr<>Windowptr do
  109.             p:-p.suc;
  110.         if p=/=none then
  111.             ConvertToNotice:-p; ! else not a window hit ;
  112.     end;
  113.  
  114.     link class WindowNotice(W); ref(MACWindow) W; into(WQ);
  115.  
  116. ! -- Initialization --- ;
  117.     ref(MacWindow) GhostWindow; ! used to reprsent windows 
  118.                                          ! in other Applications ;
  119.     ref(Head) WQ;
  120.     WQ:-new Head;
  121.     
  122.     Util:-new MacUtilities;    ! To access general utilities of Toolbox;
  123.     TConst:-new MacToolConst;  ! To access CONST:s from Toolintf;
  124.     TOOLBOX:-new TOOLBOXWindow;! To access Quickdraw & Window traps;;
  125.     GhostWindow:- new MacWindow;
  126. END --- MAC Window Manager --- ;